home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / prtrep41 / demo2.df_ / demo2.bin / demo2.txt
Encoding:
Text File  |  1996-09-15  |  9.1 KB  |  305 lines
  1. object Demo2Form: TDemo2Form
  2.   Left = 214
  3.   Top = 359
  4.   Width = 607
  5.   Height = 450
  6.   ActiveControl = Panel1
  7.   Caption = 'Demo2Form'
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 599
  20.     Height = 209
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Previews: TBitBtn
  24.       Left = 480
  25.       Top = 2
  26.       Width = 113
  27.       Height = 30
  28.       Caption = '&SubTotals'
  29.       TabOrder = 0
  30.       OnClick = PreviewsClick
  31.       Glyph.Data = {
  32.         76010000424D7601000000000000760000002800000020000000100000000100
  33.         04000000000000010000130B0000130B00000000000000000000000000000000
  34.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  35.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  36.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  37.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  38.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  39.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  40.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  41.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  42.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  43.         33333337FFFF7733333333300000033333333337777773333333}
  44.       NumGlyphs = 2
  45.     end
  46.     object Exit: TBitBtn
  47.       Left = 525
  48.       Top = 74
  49.       Width = 68
  50.       Height = 30
  51.       Caption = '&Exit'
  52.       ModalResult = 2
  53.       TabOrder = 1
  54.       OnClick = ExitClick
  55.       Glyph.Data = {
  56.         78010000424D7801000000000000760000002800000020000000100000000100
  57.         04000000000000000000120B0000120B00000000000000000000000000000000
  58.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  59.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  60.         03333377777777777F333301111111110333337F333333337F33330111111111
  61.         0333337F333333337F333301111111110333337F333333337F33330111111111
  62.         0333337F333333337F333301111111110333337F333333337F33330111111111
  63.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  64.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  65.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  66.         0333337F377777337F333301111111110333337F333333337F33330111111111
  67.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  68.       NumGlyphs = 2
  69.     end
  70.     object Preview: TBitBtn
  71.       Left = 505
  72.       Top = 38
  73.       Width = 88
  74.       Height = 30
  75.       Caption = 'Pre&View'
  76.       TabOrder = 2
  77.       OnClick = PreviewClick
  78.       Glyph.Data = {
  79.         76010000424D7601000000000000760000002800000020000000100000000100
  80.         04000000000000010000130B0000130B00000000000000000000000000000000
  81.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  82.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  83.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  84.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  85.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  86.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  87.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  88.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  89.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  90.         33333337FFFF7733333333300000033333333337777773333333}
  91.       NumGlyphs = 2
  92.     end
  93.     object Memo1: TMemo
  94.       Left = 8
  95.       Top = 8
  96.       Width = 461
  97.       Height = 193
  98.       Font.Color = clMaroon
  99.       Font.Height = -17
  100.       Font.Name = 'MS Sans Serif'
  101.       Font.Style = []
  102.       Lines.Strings = (
  103.         'This is a demo of the TPrintGridReport Component'
  104.         'The lines of necessary coding can be found in DEMO2.PAS.'
  105.         'The TPrintGridReport component can make use of either a'
  106.         'TTable or a TQuery component depending on which is '
  107.         'connected to the grid. '
  108.         ''
  109.         'Subtotal and Total printing of fields can be done'
  110.         ''
  111.         'Only visible fields will be printed')
  112.       ParentFont = False
  113.       TabOrder = 3
  114.     end
  115.   end
  116.   object Panel2: TPanel
  117.     Left = 0
  118.     Top = 209
  119.     Width = 599
  120.     Height = 210
  121.     Align = alClient
  122.     BevelInner = bvLowered
  123.     BorderWidth = 4
  124.     Caption = 'Panel2'
  125.     TabOrder = 1
  126.     object DBGrid1: TDBGrid
  127.       Left = 6
  128.       Top = 6
  129.       Width = 587
  130.       Height = 198
  131.       Align = alClient
  132.       BorderStyle = bsNone
  133.       DataSource = DataSource1
  134.       Font.Color = clTeal
  135.       Font.Height = -13
  136.       Font.Name = 'Arial'
  137.       Font.Style = [fsItalic]
  138.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  139.       ParentFont = False
  140.       ReadOnly = True
  141.       TabOrder = 0
  142.       TitleFont.Color = clBlack
  143.       TitleFont.Height = -14
  144.       TitleFont.Name = 'MS Sans Serif'
  145.       TitleFont.Style = []
  146.     end
  147.   end
  148.   object Query1: TQuery
  149.     Active = True
  150.     DatabaseName = 'DBDEMOS'
  151.     SQL.Strings = (
  152.       'Select'
  153.       '  customer."CustNo",'
  154.       '  customer."Company",'
  155.       '  customer."Addr1",'
  156.       '  customer."Addr2",'
  157.       '  customer."City",'
  158.       '  customer."State",'
  159.       '  customer."Zip",'
  160.       '  customer."Country",'
  161.       '  customer."Phone",'
  162.       '  customer."FAX",'
  163.       '  customer."TaxRate",'
  164.       '  customer."Contact",'
  165.       '  customer."LastInvoiceDate"'
  166.       'From customer'
  167.       'order by'
  168.       'Country')
  169.     Left = 480
  170.     Top = 105
  171.     object Query1CustNo: TFloatField
  172.       DisplayWidth = 6
  173.       FieldName = 'CustNo'
  174.     end
  175.     object Query1Company: TStringField
  176.       DisplayWidth = 14
  177.       FieldName = 'Company'
  178.       Size = 30
  179.     end
  180.     object Query1Country: TStringField
  181.       DisplayWidth = 15
  182.       FieldName = 'Country'
  183.       Visible = False
  184.     end
  185.     object Query1Phone: TStringField
  186.       DisplayWidth = 13
  187.       FieldName = 'Phone'
  188.       Size = 15
  189.     end
  190.     object Query1Contact: TStringField
  191.       DisplayWidth = 20
  192.       FieldName = 'Contact'
  193.     end
  194.     object Query1LastInvoiceDate: TDateTimeField
  195.       DisplayWidth = 20
  196.       FieldName = 'LastInvoiceDate'
  197.     end
  198.   end
  199.   object DataSource1: TDataSource
  200.     DataSet = Query1
  201.     Left = 507
  202.     Top = 105
  203.   end
  204.   object PrintGridReport1: TPrintGridReport
  205.     Brush.Color = clSilver
  206.     OutputTo = poViewer
  207.     Orientation = Default
  208.     ViewBkColor = clAqua
  209.     Units = poInches
  210.     ViewHeading = 'PrintIt! Viewer'
  211.     FooterFont.Color = clWindowText
  212.     FooterFont.Height = 12
  213.     FooterFont.Name = 'Arial'
  214.     FooterFont.Style = []
  215.     HeaderFont.Color = clWindowText
  216.     HeaderFont.Height = 16
  217.     HeaderFont.Name = 'Arial'
  218.     HeaderFont.Style = []
  219.     HeaderTop = '0.5'
  220.     HeaderLeft = '0.25'
  221.     HeaderStringLeft = 'Demo 2'
  222.     HeaderStringCenter = 'Page Header'
  223.     HeaderStringRight = 'PrintIt!'
  224.     HeaderEnabled = True
  225.     HeaderOutlined = True
  226.     HeaderFilled = True
  227.     FooterTop = '25.33'
  228.     FooterLeft = '0.25'
  229.     FooterString = 'Page Footer'
  230.     FooterEnabled = True
  231.     FooterOutlined = True
  232.     FooterFilled = True
  233.     DisableControls = True
  234.     BorderLeft = '0.25'
  235.     BorderRight = '0.25'
  236.     DateTimeStampEnabled = True
  237.     PageNumberEnabled = True
  238.     GridHeadingRow = '1.5'
  239.     GridHeadingCol = '0.25'
  240.     GridHeadingEnabled = True
  241.     GridHeadingOutlined = True
  242.     GridHeadingFilled = True
  243.     GridLines = True
  244.     LineSpacing = '1.5'
  245.     Grid = DBGrid1
  246.     GridMinWidth = True
  247.     GridCentered = True
  248.     GridPrintTotal = True
  249.     PrintSubTotals = False
  250.     FrameStyleLeft = frSingleThin
  251.     FrameStyleTop = frSingleThin
  252.     FrameStyleRight = frSingleThin
  253.     FrameStyleBottom = frSingleThin
  254.     ReportStyle = rsOwn
  255.     Left = 496
  256.     Top = 148
  257.   end
  258.   object PrintFile1: TPrintFile
  259.     OutputTo = poViewer
  260.     Orientation = Default
  261.     ViewBkColor = clAqua
  262.     Units = poInches
  263.     ViewHeading = 'PrintIt! Viewer'
  264.     ContentsLeft = '1.0'
  265.     TabSpaces = 3
  266.     FooterFont.Color = clWindowText
  267.     FooterFont.Height = 12
  268.     FooterFont.Name = 'Arial'
  269.     FooterFont.Style = []
  270.     HeaderFont.Color = clWindowText
  271.     HeaderFont.Height = 16
  272.     HeaderFont.Name = 'Arial'
  273.     HeaderFont.Style = []
  274.     ContentsFont.Color = clWindowText
  275.     ContentsFont.Height = 12
  276.     ContentsFont.Name = 'Arial'
  277.     ContentsFont.Style = []
  278.     HeaderTop = '0.5'
  279.     HeaderLeft = '0.25'
  280.     HeaderStringLeft = 'Page Header'
  281.     HeaderStringCenter = 'Page Header'
  282.     HeaderStringRight = 'Page Header'
  283.     HeaderEnabled = True
  284.     HeaderOutlined = True
  285.     HeaderFilled = False
  286.     FooterTop = '24.63'
  287.     FooterLeft = '0.25'
  288.     FooterString = 'Page Footer'
  289.     FooterEnabled = True
  290.     FooterOutlined = False
  291.     FooterFilled = True
  292.     BorderLeft = '0.25'
  293.     BorderRight = '0.25'
  294.     DateTimeStampEnabled = True
  295.     PageNumberEnabled = True
  296.     LineSpacing = '1.5'
  297.     FrameStyleLeft = frSingleThin
  298.     FrameStyleTop = frSingleThin
  299.     FrameStyleRight = frSingleThin
  300.     FrameStyleBottom = frSingleThin
  301.     Left = 540
  302.     Top = 156
  303.   end
  304. end
  305.